home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / INOUT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  398 b   |  21 lines
  1. 10  ' In-Out
  2. 20  GOSUB 65501
  3. 30  SCREEN 1
  4. 40  FOR I=3 TO 7
  5. 50    FOR J=2 TO 6
  6. 60      FOR S=0 TO 3
  7. 70        FOR R=0 TO 3
  8. 80          COLOR R*S+1,S
  9. 90          A=0: B=319: C=0: D=199
  10. 100         LINE (A,C)-(B,D),R,B
  11. 110         A=A+J: B=B-J: C=C+I: D=D-I
  12. 120         IF A<320 AND C<200 THEN 100
  13. 130     NEXT R,S
  14. 135  BEEP
  15. 140  NEXT J,I
  16. 150  GOTO 40
  17. 65501  KEY OFF: CLS
  18. 65502  WIDTH 80: DEF SEG=0: A=PEEK(&H410): POKE &H410,(A AND &HCF) OR &H20
  19. 65503  WIDTH 40: SCREEN 1: SCREEN 0: LOCATE ,,1,6,7
  20. 65504  RETURN
  21.